(image-file-name-regexp): Automatically add upper-case variants of each

filename extension in `image-file-name-extensions', since they seem to
be common.

diff --git a/lisp/image-file.el b/lisp/image-file.el
index f8da174364bee48738bd7db971b5aa36011b1be1..ef667085eacab69f06eb91f433a58d49b4f6bf59 100644 (file)
--- a/lisp/image-file.el
+++ b/lisp/image-file.el
@@ -82,7 +82,10 @@ variable is set using \\[customize]."
   (let ((exts-regexp
         (and image-file-name-extensions
              (concat "\\."
-                     (regexp-opt image-file-name-extensions t)
+                     (regexp-opt (nconc (mapcar #'upcase
+                                                image-file-name-extensions)
+                                        image-file-name-extensions)
+                                 t)
                      "\\'"))))
     (if image-file-name-regexps
        (mapconcat 'identity